0 A$(0)="ELITE"
1 A$(1)="PROPORTIONAL"
2 A$(2)="SCHMAL"
3 A$(3)="FETT"
4 A$(4)="DOPPEL"
5 A$(5)="BREIT"
6 A$(6)="KURSIV"
7 A$(7)="UNTERSTREICHEN"
8 :
10 INPUT"WERT FUER N";N:PRINT
12 :
20 FOR I = 7 TO 0 STEP -1
30 : IF N < 2^I THEN 70
40 : PRINT A$(I)
50 : N = N - 2^I
60 : IF N <= 0 THEN END
70 NEXT I